home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / LIEBESTR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  896 b   |  21 lines
  1. 1  'LIEBESTRAUM  BY FRANZ LISZT   TRANSCRIBED BY NELSON FORD
  2. 10  'CLS:KEY OFF
  3. 20  PLAY"L8 T180 MN"
  4. 25  FOR J=1 TO 2
  5. 30  FOR I=1 TO 8
  6. 40   READ M$
  7. 50  'PRINT M$
  8. 60   PLAY M$
  9. 65  'INPUT X$
  10. 70  NEXT I
  11. 75  RESTORE 100
  12. 80  NEXT
  13. 100  DATA "O2D B O3D G B G D O2B O3D G B G D
  14. 110  DATA "O2B O3D+ F+ B F+ D+ O2B O3D+ F+ B O2B16. O3F+32 D+ O2B O3D G+ B O2B16. O3G+32 D
  15. 120  DATA "C D G+ O4C O2B16. O3G+32 D O2B O3C+ E A E C+ O2E O3C+ E A O2E16. O3E32 C+
  16. 130  DATA "O2E O3E16 C+16 O2F+ O3F+16 C+16 O2G O3G16 C+16 O2B O3D F+ B O2A16. O3F+32 D O2G B O3D G D O2B
  17. 140  DATA "G B O3D G O2D16. O3D32 O2B B O3D G B G D O2B O3D G B G D"
  18. 150  DATA "O2B O3D+ F+ B F+ D+ O2B O3D+ F+ B O2B16. O3F+32 D+ O2B O3D G+ B O2B16. O3G+32 D C D G+ O4D O2B16. O3G+32 D"
  19. 160  DATA "E A O4C+ E C+ O3A O2E O3C+ E A O2E16. O3E32 C+ O2E O3C+ O2F+ O3C+ O2G O3C+"
  20. 170  DATA "O2B O3D F+ B O2A16. O3F+32 D O2G B O3D G D O2B G B O3D G D O2B O3G2."
  21.